home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / clinic / VIDU2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-05  |  1.4 KB  |  64 lines
  1. unit VidU2;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinProcs, WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls;
  8.  
  9. type
  10.   TfrmDisplay = class(TForm)
  11.     pnlDisplay: TPanel;
  12.     procedure pnlDisplayResize(Sender: TObject);
  13.     procedure FormShow(Sender: TObject);
  14.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  15.     procedure pnlDisplayClick(Sender: TObject);
  16.     procedure FormCreate(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   frmDisplay: TfrmDisplay;
  25.  
  26. implementation
  27.  
  28. uses VidU1;
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TfrmDisplay.pnlDisplayResize(Sender: TObject);
  33. begin
  34.   { Make video display fit nice and snugly in form }
  35.   frmMain.Media.DisplayRect := (Sender as TPanel).BoundsRect
  36. end;
  37.  
  38. procedure TfrmDisplay.FormShow(Sender: TObject);
  39. begin
  40.   { Ensure video output is right size from the start }
  41.   pnlDisplay.OnResize(pnlDisplay)
  42. end;
  43.  
  44. procedure TfrmDisplay.FormCloseQuery(Sender: TObject;
  45.   var CanClose: Boolean);
  46. begin
  47.   if MessageDlg('Close multimedia player?',
  48.        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  49.     Application.Terminate
  50. end;
  51.  
  52. procedure TfrmDisplay.pnlDisplayClick(Sender: TObject);
  53. begin
  54.   { A mouse click brings controls back }
  55.   frmMain.Show
  56. end;
  57.  
  58. procedure TfrmDisplay.FormCreate(Sender: TObject);
  59. begin
  60.   frmMain.Media.Display := pnlDisplay
  61. end;
  62.  
  63. end.
  64.